home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / TEX-DIST / !TARZ / MVARCHIV00 < prev    next >
Text File  |  1991-09-29  |  740b  |  22 lines
  1. BEGIN {
  2.       command="count <tarZ$use>.archive ~C~RV";
  3.       command | getline;
  4.       close(command);
  5.       if (substr($2,length($2)-length("_tar")+1)=="_tar")
  6.          {
  7.          system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
  8.          print "WARNING: assuming uncompressed tarfile";         
  9.          exit;
  10.          }
  11.       if (substr($2,length($2)-length("-tar")+1)=="-tar")
  12.          {
  13.          system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
  14.          print "WARNING: assuming uncompressed tarfile";         
  15.          exit;
  16.          }
  17.       if (toupper(substr($2,length($2)-length("x_tar-Z")+1))!=toupper("x_tar-Z"))
  18.          {
  19.          system(sprintf("rename %s <tarZ$use>.archive.x_tar-Z",$2));
  20.          }
  21.       }
  22.